﻿Imports LogicaAT.SIREOS
Imports ServiciosAT

Namespace SIREOS
    Public Class CtServicio

        Function anularOrdenServicio(oServicio As SireosWSServicio.OrdenServicio) As Boolean
            Dim oServicioWSR As New ServicioWSR
            Return oServicioWSR.anularOrdenServicio(oServicio)
        End Function

        Function buscarCliente(oCliente As SireosWSServicio.Cliente) As SireosWSServicio.Cliente
            Dim oServicioWSR As New ServicioWSR
            Return oServicioWSR.buscarCliente(oCliente)
        End Function

        Function cargarDatosOrden(oOrdenServicio As SireosWSServicio.OrdenServicio) As SireosWSServicio.OrdenServicio
            Dim oServicioWSR As New ServicioWSR
            Return oServicioWSR.cargarDatosOrden(oOrdenServicio)
        End Function

        Function listarOrdenesServicios(oServicio As SireosWSServicio.OrdenServicio, ini As String, fin As String) As DataTable
            Dim oServicioWSR As New ServicioWSR
            Return oServicioWSR.listarOrdenesServicios(oServicio, ini, fin)
        End Function

        Function registrarOrdenServicio(oOrden As SireosWSServicio.OrdenServicio) As Integer
            Dim oServicioWSR As New ServicioWSR
            Return oServicioWSR.registrarOrdenServicio(oOrden)
        End Function

        Function modificarOrdenServicio(oOrden As SireosWSServicio.OrdenServicio) As SireosWSServicio.MensajeInformativo
            Dim oServicioWSR As New ServicioWSR
            Return oServicioWSR.modificarOrdenServicio(oOrden)
        End Function

        Function registrarNotaServicio(oNota As SireosWSServicio.OrdenServicioNota) As SireosWSServicio.MensajeInformativo
            Dim oNotaWS As New ServicioWSR
            Return oNotaWS.registrarNotaServicio(oNota)
        End Function

        Function listarNotas(oNota As SireosWSServicio.OrdenServicioNota) As DataTable
            Dim NotaWSR As New ServicioWSR
            Return NotaWSR.listarNotaServicio(oNota)
        End Function

    End Class
End Namespace